home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Shell Folders 5.xpl < prev    next >
Text File  |  2002-11-01  |  2KB  |  75 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="3"
  4. "UIPATH"="System\File System\Folders\Data"
  5. "NAME"="General Folders #2"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="3.00"
  8. "TEXT 1"="My Pictures"
  9. "TEXT 2"="My Music"
  10. "TEXT 3"="My Video"
  11. "DESCRIPTION 1"=""My Pictures" specifies the folder where your picture files are located."
  12. "DESCRIPTION 2"=""My Music" specifies the folder where your music files (MP3, WMA etc.) files are located."
  13. "DESCRIPTION 3"=""My Video" specifies the folder where your video files (AVI, DivX etc.) files are located."
  14. "DESCRIPTION 4"="*IMPORTANT* When changing any folder here, you need to copy the files from the old location to the new one "by hand". X-Setup can't do this! *IMPORTANT*"
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  22. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  23.  
  24. Sub Plugin_Initialize 
  25.  s=RegReadValue(sp1 & "My Pictures")
  26.  SetUIElement 1,s
  27.  
  28.  s=RegReadValue(sP1 & "My Music")
  29.  SetUIElement 2,s
  30.  
  31.  s=RegReadValue(sP1 & "My Video")
  32.  SetUIElement 3,s
  33. End Sub
  34.  
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39.  
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  iWriteMethod=0
  43.  
  44.  if GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
  45.     'Win 24bit (not really 16bit but also not real 32bit)
  46.     iWriteMode=1
  47.  else
  48.     iWriteMode=4
  49.  end if
  50.  
  51.  
  52.  s=GetUIElement(1)
  53.  Call RegWriteValue(sP1 & "My Pictures",s,1)
  54.  Call RegWriteValue(sP2 & "My Pictures",s,iWriteMode)
  55.  
  56.  s=GetUIElement(2)
  57.  Call RegWriteValue(sP1 & "My Music",s,1)
  58.  Call RegWriteValue(sP2 & "My Music",s,iWriteMode)
  59.  
  60.  s=GetUIElement(3)
  61.  Call RegWriteValue(sP1 & "My Video",s,1)
  62.  Call RegWriteValue(sP2 & "My Video",s,iWriteMode)
  63.  
  64.  
  65.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  66.  Call Logoff() 'Required because of ActiveDestop and other crap
  67. End Sub
  68.  
  69.  
  70. Sub Plugin_Terminate 
  71. End Sub
  72.  
  73.  
  74.  
  75.